[38;2;249;38;114mprogram[0m[38;2;248;248;242m Hello;[0m
[38;2;249;38;114muses[0m[38;2;248;248;242m crt;[0m

[38;2;249;38;114mtype[0m[38;2;248;248;242m str = string[[0m[38;2;190;132;255m1[0m[38;2;248;248;242m];[0m
[38;2;248;248;242m     arr = [0m[38;2;249;38;114marray[0m[38;2;248;248;242m[[0m[38;2;190;132;255m1[0m[38;2;248;248;242m..[0m[38;2;190;132;255m20[0m[38;2;248;248;242m, [0m[38;2;190;132;255m1[0m[38;2;248;248;242m..[0m[38;2;190;132;255m60[0m[38;2;248;248;242m] [0m[38;2;249;38;114mof[0m[38;2;248;248;242m char;[0m

[38;2;249;38;114mvar[0m[38;2;248;248;242m x, y:integer;[0m
[38;2;248;248;242m    carr:arr;[0m
[38;2;248;248;242m    c:char;[0m

[3;38;2;102;217;239mProcedure[0m[38;2;248;248;242m [0m[38;2;166;226;46mstart[0m[38;2;248;248;242m;[0m
[38;2;117;113;94m{[0m[38;2;117;113;94mcomment here[0m[38;2;117;113;94m}[0m
[38;2;249;38;114mbegin[0m[38;2;248;248;242m write ([0m[38;2;230;219;116m'[0m[38;2;230;219;116m Press enter to begin. [0m[38;2;230;219;116m'[0m[38;2;248;248;242m);[0m
[38;2;248;248;242mreadln;[0m
[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m

[3;38;2;102;217;239mFunction[0m[38;2;248;248;242m [0m[38;2;166;226;46mValid[0m[38;2;248;248;242m ([0m[38;2;249;38;114mvar[0m[38;2;248;248;242m choice:char): boolean;[0m
[38;2;249;38;114mbegin[0m[38;2;248;248;242m [0m
[38;2;248;248;242m    valid:= false;[0m
[38;2;248;248;242m    [0m[38;2;249;38;114mcase[0m[38;2;248;248;242m choice [0m[38;2;249;38;114mof[0m[38;2;248;248;242m [0m
[38;2;248;248;242m        [0m[38;2;230;219;116m'[0m[38;2;230;219;116m1[0m[38;2;230;219;116m'[0m[38;2;248;248;242m:valid:= true;[0m
[38;2;248;248;242m        [0m[38;2;230;219;116m'[0m[38;2;230;219;116m2[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
[38;2;248;248;242m        [0m[38;2;230;219;116m'[0m[38;2;230;219;116m3[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
[38;2;248;248;242m        [0m[38;2;230;219;116m'[0m[38;2;230;219;116m4[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
[38;2;248;248;242m        [0m[38;2;230;219;116m'[0m[38;2;230;219;116m5[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
[38;2;248;248;242m        [0m[38;2;230;219;116m'[0m[38;2;230;219;116m6[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
[38;2;248;248;242m    [0m[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m
[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m

[38;2;249;38;114mbegin[0m
[38;2;248;248;242m    [0m[38;2;249;38;114mfor[0m[38;2;248;248;242m y:=[0m[38;2;190;132;255m1[0m[38;2;248;248;242m [0m[38;2;249;38;114mto[0m[38;2;248;248;242m [0m[38;2;190;132;255m3[0m[38;2;248;248;242m [0m[38;2;249;38;114mdo[0m
[38;2;248;248;242m    [0m[38;2;249;38;114mbegin[0m
[38;2;248;248;242m        writeln (y);[0m
[38;2;248;248;242m    [0m[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m
[38;2;248;248;242m    [0m
[38;2;248;248;242m    [0m[38;2;249;38;114mrepeat[0m
[38;2;248;248;242m        writeln(y);[0m
[38;2;248;248;242m        y := y + [0m[38;2;190;132;255m1[0m[38;2;248;248;242m;[0m
[38;2;248;248;242m    [0m[38;2;249;38;114muntil[0m[38;2;248;248;242m y > [0m[38;2;190;132;255m5[0m[38;2;248;248;242m;[0m
[38;2;248;248;242m    writeln ([0m[38;2;230;219;116m'[0m[38;2;230;219;116mHello World[0m[38;2;230;219;116m'[0m[38;2;248;248;242m);[0m
[38;2;249;38;114mend[0m[38;2;248;248;242m.[0m

